;~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ 
; Irc Script By NaTRo 
; http://www.aspendos.da.ru 
; Coded By NaTRo 
; Yklemek iin /load -rs bot.txt yaznz 
;~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ 

alias bot {
window -c @Bot 
window -e @Bot 
Echo 10 @Bot ***Scanner Bot v1.0 By NaTRo (http://www.aspendos.da.ru)***
sockclose bot
sockopen bot irc.mynet.com 1613
echo 10 @Bot ***Bot Balanyor***

}
on 1:sockopen:bot:{
if ($sockerr) { echo 10 @Bot *** Bot Balanrken Hata Olutu | halt }
if ($sockerr > 0) return
.sockwrite -tn bot user java java irc.mynet.com Belirtilmemi $ds.v 
.sockwrite -tn bot nick $rand(a,o) $+ $rand(A,O) $+ $rand(a,o) $+ $rand(A,O) $+ $rand(a,o) $+ $rand(A,Z) http://sohbet.mynet.com/sohbet/?channame=mynet_40%2B&nick= $+ $me $+ minichat=false
}
on 1:sockread:Bot:{
  if ($sockerr > 0) return
  sockread %mybot.temp
  tokenize 32 %mybot.temp
  if ($sockbr == 0) return
  if (%mybot.temp == $null) %mybot.temp = -
  if ($left(%mybot.temp,4) == PING) {  .sockwrite -tn bot pong $mid(%mybot.temp,7,$len(%temp)) | return }
  if ($2 == PONG) { set %mybot.nick $4 }
  if ($2 == 001) { set %mybot.nick $3 }
  if ($2 == 376) || ($2 == 422) { echo 10 @Bot *** Balant kuruldu. $chr(91) $+  $server $+ / $+ %mybot.nick $+ $chr(93) | set %mybot.status on }
  if ($1 == PING) { botraw PONG $2 }
  if ($2 == NICK) { set %mybot.nick $remove($3,:) }
  if ($2 == PRIVMSG) { set %mybot.tespit.msg $remove($4,:) $5- }
  if ($2 == PRIVMSG) && ($3 == %mybot.nick) {
    tokenize 33 %mybot.temp
    %mybot.querynick = $remove($1,:) 
    if (*_Bot iswm %mybot.querynick) { goto halt }
    if (*mynet* iswm %mybot.querynick) { goto halt }
    if (*My*Op* iswm %mybot.querynick) { goto halt }
    if (*Serv iswm %mybot.querynick) { goto halt }
    ignore -pu60 %mybot.querynick
    aban %mybot.querynick 4You Are Banned! 2AutoMsg4/2Inviter4/2Reklam
    inc %mybot.kick.counter | botraw away 4Kurban Says:12 %mybot.kick.counter
    echo 10 @Bot -
    echo 4 @Bot *** 2AutoMsg/Reklam/Inviter Tespit Edildi 4> 2Nick:2"4 %mybot.querynick 2" Mesaj:2"4 %mybot.tespit.msg 2"
    echo 10 @Bot -
    unset %mybot.querynick    
    :halt 
    halt
  }

  if ($2 == NOTICE) && ($3 == %mybot.nick) {
    tokenize 33 %mybot.temp
    %mybot.querynick = $remove($1,:) 
    if (*_Bot iswm %mybot.querynick) { goto halt }
    if (*mynet* iswm %mybot.querynick) { goto halt }
    if (*Serv iswm %mybot.querynick) { goto halt }
    ignore -pu60 %mybot.querynick
    aban %mybot.querynick 4You Are Banned! 2AutoMsg4/2Inviter4/2Reklam
    inc %mybot.kick.counter | botraw away 4Kurban Says:12 %mybot.kick.counter
    echo 10 @Bot -
    echo 4 @Bot *** 2AutoMsg/Reklam/Inviter Tespit Edildi 4> 2Nick:2"4 %mybot.querynick 2" Mesaj:2"4 %mybot.tespit.msg 2"
    echo 10 @Bot -
    unset %mybot.querynick
    :halt 
    halt
  }

}

on *:sockclose:bot:{ echo 10 @Bot *** Botun Balants kesildi... $chr(91) $+  $server $+ $chr(91) | set %mybot.status off |  echo 10 @Bot *** Bot Tekrar Balanyor. | .bot }

alias denetle {
  Botraw Join $1 
  .timerpartchan 1 5 Botraw Part $1 | botraw ping %mybotnick
  .timerMyBot.NickDegis 1 10 Botraw Nick $rand(A,O) $+ $rand(a,o) $+ $rand(A,O) $+ $rand(a,o) $+ $rand(A,O) $+ $rand(a,o) $+ $rand(A,Z)
}

on *:INPUT:@Bot:{
  if ( $left($1-,1) == / ) { $1- }
  else { botraw $1- }
  halt
}

alias botread { sockread -tn bot $1-  }

alias botraw { sockwrite -tn bot $1- }

menu channel {
.$iif(( $server == irc.mynet.com ),Bot ( %mybot.status ))
.$iif(( %mybot.status == off ),A) { .bot }
.$iif(( %mybot.status == on ),Denetle) { .denetle $chan }
.$iif(( %mybot.status == on ),Bot Whois) { .whois %mybot.nick }
.-
.$iif(( %mybot.status == on ),Kapat) { .window -c @Bot | .sockclose bot | echo 10 -a ***Bot Kapatld*** | .set %mybot.status off }
}
on *:Connect:{ 
.set %mybot.status off
.if ($server == irc.mynet.com ) { .bot | .window -n @Bot }
}





